home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / dir / megad31b.lha / rexx / makeLikeFiles.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-02  |  539b  |  20 lines
  1. /* simply create like files in T: directory to test RenameOther.rexx */
  2.  
  3. /* if run from MegaD change address to REXX to prevent return values 
  4.     from being used as ARexx commands to MegaD
  5. */
  6. ADDRESS REXX
  7. name  = 'T:likeFile'
  8. number = 1
  9. do 20
  10.     filename = name || RIGHT(number,2,'0')
  11.     SAY filename
  12.     OPEN('file',filename,'w');
  13.     WRITELN('file',number)
  14.     CLOSE('file')
  15. /* un-comment if you want to test with a phony .info file for each file */
  16. /*     ADDRESS COMMAND COPY 'sys:system/shell.info' to filename || '.info' */
  17.     number = number + 1
  18.     end
  19.  
  20.